﻿Imports System.Windows.Forms
Imports Logica

Public Class CambiarEstado
    Private m_identifiacion As String

    ''' <summary>
    ''' Crea la pantalla en base al número de identifiación.
    ''' </summary>
    ''' <param name="p_identificacion">Número de identifiación.</param>
    ''' <remarks>Creado por: Elías Baldioceda, Fecha: 22/06/2010, Modificado: 22/06/2010</remarks>
    Public Sub New(ByVal p_identificacion As String)
        InitializeComponent()

        m_identifiacion = p_identificacion
    End Sub

    ''' <summary>
    ''' Cambia el estado del usuario.
    ''' </summary>
    ''' <remarks>Creado por: Elías Baldioceda, Fecha: 22/06/2010, Modificado: 22/06/2010</remarks>
    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        Gestor.usuarioCambiarEstado(m_identifiacion, cmbEstado.SelectedValue)
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    ''' <summary>
    ''' Cierra la pantalla.
    ''' </summary>
    ''' <remarks>Creado por: Elías Baldioceda, Fecha: 22/06/2010, Modificado: 22/06/2010</remarks>
    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub

    ''' <summary>
    ''' Carga el estado actual del usuario.
    ''' </summary>
    ''' <remarks>Creado por: Elías Baldioceda, Fecha: 22/06/2010, Modificado: 22/06/2010</remarks>
    Private Sub CambiarEstado_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim usuario As Hashtable

        usuario = Gestor.usuarioBuscar(m_identifiacion)
        cmbEstado = cmbEstado

        cmbEstado.DataSource = System.Enum.GetValues(GetType(Estado))
        cmbEstado.SelectedIndex = usuario("estado")
    End Sub

    ''' <summary>
    ''' Muestra la ayuda del sistema.
    ''' </summary>
    ''' <remarks>Creado por: Elías Baldioceda, Fecha: 29/06/2010, Modificado: 29/06/2010</remarks>
    Private Sub lnklblAyuda_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnklblAyuda.LinkClicked
        MostrarAyuda.Show()
    End Sub
End Class
